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This*is the teacher^s guide to accom 
guide which together coipprise one of five ccnputer-ro 
environmental/energy education units^ ^ This unit is o 
computerized data base of information related to glo 
The da€a is organized on a country *by -country ^ta^is 
largest countries in the world. For each ccuntiy^ dat 
stored on 24 variables r such as use and production o'f 
per/capita incomer energy reserves^ and so cn. Oising 
proaramr students are guided through a series of ing 
data base* The data base may be expanded ty the teach 
materials are desiigned for grades 9 thtcogh 1U and^at 
for Social Studies and Environmental Educaticn or Sci 
This teacher's guide presents: (1) an introduction tc 
bacIc<*round information ca the program ard hen to use 
exercises; (U) information sources; and (5) 



around 
Use. 
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INTRODUCTION TO THE UNIT 




Subject 



Topic; 



- ^ / Unit boscrlptlon 
Areas; Social Studies, Environmental^ Education 



Global DLcnensions of the Energy Shortage 



Abstract: This unit Is organized around a computerized data b^e of 
lnf<|rmatlon r^Jated to global energy use. The data Is orgat|ilzed on 
a country -by-counti^ basis for the 83 largest countries In the world. 
For each coutxtty, data hai^ been stored on 24 variables, such as 
use and production of energy, pet capita Income, energy rese^rves, 
and s,o on, . ■'" ' . 



Using the computer program, EARTH, students are guided through 
a series of Inquiries Into the data base. These inquiries are 
ba^ed on questions and hypotheses related to the globdl use of 
energy, such as ^^What factors are associated with high consumption 
of energy?" and "What are the ^current patterns and trends In 
energy use?" , 

The data base may be expanded by the teacher to allow^^furth^r 
ekploratlon Into the factors associated with energy use and 
production: , 

Grade Level: 9-l4 

Computer Language; BASIC 

Program-cName: EARTH , ^ 



( 
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Objectives ^ 
irhe primary objectives of this unit ar^: 



, / 

/ 

/■ 



V 



1. To allow students tp exanllne the energy crisis with a view 
^ to understanding the corijtelates of the program.. 

j2. ' To allow dfudents to ex^lne data reflecting the nations of \ 
the world so they come ko understand the global dimensions 
l^. of the energy shortage/^ ^ 

3, To provide k hypothesfls-testlng system which Is open-ended; 
' that Is, ILallows the? student to explore the data base In 

y complete freedom af tier the Initial, exercises haye been 
completed. \ / . , ' / 

Overview of the Program EARTH and. Its Options V , _ 

The EARTH ^program Is designed for use as ah Inquiry sys^tem with a data 
base Involving 24 variables (from population and IncomQ^flgures to coal 
production and natural gai^ reserves) for 83 of the major icoujitrles of ^he 
world. 

For Inquiry students are given two options with program EARTH. Using the 
"Table^^^^oj^ilon may obtain* a table for txp to 5 variables at a time 

for any ^r all of the 83, countries. IJslng the '»Rank" ootlon, students may 
obtBrlj^ an ordeffeB listing (from high to low) on one variable, i ThL6\ option ^ 
also allowqi the ^tudent to ask fpr a specified numlber of .cpuntrles froni the 
top or the bottopi of the rank, order list." ' . 

Using program EARTH, students should be "enfcouraged to hypothesize, Mo 
invent questions, ^nd to gather da^ for testing the hypothesis or ansVi/erlng 
the questions 



THE ''EARTH*' PROGRAM 



Descrlp/lon of the' Data Base 



/ 



The dfl^a base used for studeift Inquiry Is, simply/ the values of 24 yartaDles 
for Saf countries. The sp^clfm viirlables, and the specific countries, are 
llisted/oa pages 4-5. A comjpletq listing of the data base can be found 
-on prfgea 6-10. *you will note that zeros have been entered for* some values- 
zero* Indicate 'information not obtainable. " If you find a source for any of 
this |^ml8S,lng data, you may upda^te the data base using the procedures In the 
n€^?cl? section. ' j . 



Variable 
Ntoiber 

1 

2 

5 . 




List of Variables Stored for Each Country 

' ' ' ■ ' .■ ' . ,■ . ' ' . * ' ,- ■■ ' 

jPata 

. * ■ . ■ • I 

1971 population In ihQllons 
1971 population density per square kilometer 
1963-1971 population Increase rate^ In % * 
Male life expectancy 

Female life iefltpectancy / . . 

Dally calorie consumption per capita 

1968 national Income In millions of dollars 

■ • . ■ ■ ■ ^ ■ \ -v- , , 

1971 national Income In millions of dollars 

19^8 energy production In million metric tons of coal equivalent 
1971 energy production In million metric toira of coaHequlvaient 
1968 energy consumption In million metric tons of coal equivalent 
1971 ipnergy consumption In million metric tons of coal equivalent 
1968 energy consumptloh per capita "Ih kilograms 

1971 energy consumption per capita In kQograms 
Coal reserves In million metric tons • ^ 
^|972 Cdal prodi^tlon In thousand metric tons ^ ' 
Reserves of lignite and Ibrown coal In million metric tons 

1972 production of lignite and brown coal In' thousand metric [jons 
Petroleum reserves In million metric tons 

1972 production' of petroleum In thousand metric tons 
Natural gas reserves In thousand million cubic meters 
1972 production of natural gas In million cubic meters 
1971 production of lelectrlcal energy In million kilowatt hours 
1971 production of manufactured* gas In million cubic meters 
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List of County les tor Which Data Is Stored 



1.. 


Afghanistan 


22. 


El Salvador 


43. 


Korea 


64. 


Southern Rhodes 


2. 


Algeria 


23. 


Ethiopia 


44. 


Laos 


65. 


Spam 

1 . , 


3. 


Argentina ^ 


24. 


Finland 


45. 


Malaysia 


66. 


Sw Lanka 












(West) 






4. 


Australlav 


25. 


France 






6T-. 


SOdan ' ■ 






r 




40.' 


Mall 






5. 


Austria 


26. 


Germany 






68." 


Swfeden 










47. 


Mexico 






6. 


Belgium 


' 27. 


Ghana y 






69.' 


Switzerland , 










48. 


Morocco 






7. 


Bolivia 


; 28. 


Greece 






70". 


Syrian Arab 




■ 






49. 


Netherlands 




Republic 


8. 


Brazil 


29. 


Guatemala 


















50. Nepal • 


7,1. 


Thj^lland 


9. 


Bulmrla 


30. 


Guinea 


















51.' 


Niger 


72. 


Turkey 


* 10. 


Bulundl 


\31. 


Haiti 
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■52. 


Nigeria . 


73% 


Uganda / 


u. 


Camida 


32. 


Tlong Kong 














./ 




53, 


Norway 


74. 


United Klngdbm 


12. 


Chad 


; 33.^ 


Hungary 
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54. 


Pakistan 


75. 


United Republic 


13. 


Chile 


34. 


India . 








of Tanzania ^ 
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55. 


Peru 






14. 


ghlna 


35^^ 


, Indonesia 






76. 


USA 
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56! 


Philllpines 
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Colombia 


36. 


Iran 






77. 


USSR 








Iraq ^ 


57. 


Poland 
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Cuba 


37. 
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Upper Volta 


* 
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Portugal 






17. 


Czechoslovakia 


38. 


Israel 






79. 


Viet Nam 










59. 


Romania ' ^ 
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Denmark 


39. 


Italy 






80. 


Yemen 










60\ 


Rwanda 
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Dominican 


,40. 


Ivory Coast 
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Yugoslavia 




Republic 






61. 


Saudi Arabia 










41. 


Japan 
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Zaire 


20. 


Ecuador 






62. 


^Senegal 










42. 


Kenya 






.83. 


Zambia 


21. 


Egypt 






03. 


South Africa 
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Complete LlBt to of D^ta Base 
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(listing for variables 6^0 continued) 



mn 
mu 

LAOS 

l<. -tlALHYSI/i 
MALI 

■WIS ceo 

. NEPAL 

mm ■ 

PAKISTAN 
PHILMPWKS 

roU'iD 

PORTUWl 

Rl'A^DA 
SA. Aa/\JJIA 

SO' AKHICA 
J.»PK)lirsl.A 

sill IPPA 

miiu::) ■ 

TUHHFV ' 

ii.>s.iu 

VI Kr vr-i 
yi)G');.!.iVv/:A 

XAIH", 



mo 
wo 

mo 
tm 

3S0O 

?m 

2m. 

2^1 IC 

mo 

3U0 
2920 
■3010 
1900 

2300 

a7?o 

fi770 

9m 

l-'f^SO 
3hiO 

2760 
2160 
3170 
1700 
330D 

1130 

, m 
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0 
0 
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2y53 

0 ' 
'0 
369 

0 
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•0 . 
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0 

70^^ 
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0 
0 
0 

(I 

1036 
0 

3M 
0 
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(I 
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e5 . 
20 
/i50 
lAOOO 
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0 
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0 

11573 
0 
0 
0 

0 
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0 
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(listing for variables 11-15 continued) 



mw 

, MfA 
LAOS. 

MALI 
MEXICO 
MOa3CC0 
NETH^RLA,VDS 
NEPAL 
NIGEH ' 
NIGERIA 

PAKISTA.^! 
PEHU 

WILLIFIMES 
fOlAVD 
PORTUGAL. ■ . 

RWA^IOA 
SA. ARABIA 

SO. Ai-nicA ' 

S. 11*10 D^M A 
SPAIV. 
SHI LAVKA 
SlIDAV 

Sy AHAH HKP 
IKAILAVD 

in. 



y'^*.'^:Ai/iA 

ZA'^i.ir 



l«^)6 
17.75 
.OS 
3. 73 
.1 

!>3^3'', 
2.71 
S2*A-'4 
»12 
.07 
N7!) 
16.2/1 
10.79 
h?A 
9.^)5 
120.67 
■ 5. ID 
'17.1 
.03 

^li57. • 
.55 
39.0/1 
2477' , 

1.37 
li3S 

■113. • 
2. A? 
6.S7. 
is. 12 

.S . . 

.f.5 

*0'i 
S SA 

• 5'; 

%.!1 

ii'i.: 

5>. Y, 



2»01 / 


uo 


171^ 


87f9/| 




. 8«0 . 


iSB 


30 


91 


/l»3) 




453 


1 13 .• 


* 21 


25 


6/1.7 


1129 


lf!?0 


3.13 • 




205 




^12)^ 


^' 50(^9 


' . 1 


. 12 


9 


»09 


18 


■22 ' 


3*33 


53 


59. 


80.29 




5189 


ia»88 


87 


• 96 


a*7 


■m 


621 


IU32 


872 


298 


U3.2A 


382« 


«74 


7iU 


541 


805 


W.9 


23B8 


29 7S 


.0/; 


10 


10 


7.(;7 


655 


■ 988 






129 


71. ri 


»27ia 


' 2ij?5 


3.,/l 


V,0 


^.l/{ 


S5.0ij 


l^'-l^ 


\M 


2.07 


lU 


163 


1.91 


91 


,119 


ii9.3S 


S379 


0089 


211.^3 


30O9 


3!;75 


3.13 




/^B5 


10. 'l7' 




296 






516 


•71 ■ 




7^ 


30(1. t:t 


'1 A9r,i • 


5f<07 ■ 


.0:1 




70 




I0]9;j 


•\VM 


i)r;>i7 




/IS35 


.07 


.10 ■ ■ 


1:1 . 




3)11 


}i90 , 




Ml 


639 . 


::%r.7 


■ i?^'59 


\W 


1.7 J 


71 


Tl 


uv^ ■ 




/l[.H 



.0 
0 
0. 
0 
0 

^: 2m 
H 

> im 

\0 
•0 

350 

164 

1^1 

f.m 

0. . 
/{S74U 

590. 

D 

0 

0.' ■ 

72A'.S. 

6613- 

0 

0 

0 

90 ' . . 
0 

0 ^ 
0 

1335 . 
0 

I5^?fl' 
370 

0 

1000, ' . 
0 

310 
73 




00 



4 



r 



15 
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0 


0 ' 


U ' 




fl,' , 


, 0 


0 








'0. - 


0 








9';600. 


2,11?0 




mm ■■ • 






, 3750 






19300 


0 


, <^ ■ ■ 


(i 


lULtVIA ' 




0 


0 






mi 




.0 


lOl 




■ m * ' 


,1117 ■• 




W 


. mm\ 


0 ( 




'OV 


0 


CA-WDA 


i'if?i'i 




iwo 


mn 




0 




0 


'CHILE 






' 0 


16 


. CHINA 


/lOCiOOO* 


700 


0 t 


1709 


OOLOttlllA 




0 


0 


326 


mk 


0 


0 


0 


^ k 


C/KCHOSWl'. 




■ 9657 


85566' 


0 f ^ 




0 


,50 


0 . 


33 


Ml. nRPIIB. 


0 


, 0 


0 


0 


ItljAiyjR 


0 


0 


0 . 




..FGVPT 


0' 


0, 


0. 


531 


a SALv/iiior, 


0 


0^ 


' 0 


0 . 


miopiA 


0 


0 


0 ; 


0 


TWLAfJD 


0 


0 


0 . 


0 


. 


fi97«3 


3D 


296!2 


13 


GEMfiNY. 


102707- 


30000 ■ 




71 


0H(\1IA 


0 ' 


0 


0 


C 


GREECE ' 


0 


1575 


11319 


0 


GUATEMALA 


0 


0 


0. ■ ■ 


0 


GUHHEA 


0 


0 


0 


1 


HAITI 


0 


0 


0 ' 




HOJIfl KONG ■ 




0 ' 


0 


0 


HINCAHY 


3'i71 


■"■■5679 


22171 


30 


INDIA 


74771. 




3067 


90 


WDONESHA' 


!79 


' 2000 


0 


1466 




idoo 


, 0 


C 


8515 


IllAU . 


0 ' 


0 


0 


/i/133 


ISHAOL ' 


0 • 


0 , 


0 


0 


ITALY 


!51 


5!iii 


839 


35 


WORY COAST 


0, 


0 ' 


0 


0 


JAPA1I 


,J:«093 


. 173,1 . 


lOB 


3 



'r'TICi I'll') 



(I 

iO/)?'/. 

!igi;,o' 

Ull'i 

0 ' 

0 

72^;^? 7. 
0 

I6I3 

29600 

10 IM 

117 

191 

13 

0 

^016 
1C63U 

0 
0 

\m 

7093 

0 

0 

0 

0 

0 

0 

1977 

7ii86 

S^iOP.C. 

2.'ifH4B,, 

71 1 SI!., 

6043 

ll5S 
0 

Vll 




(listing % variables 1^-20 contlimed) 



KEflYA 

KOREA 
LAOS. 

'Vi MALAYSf/i 
MALI ■ 

■ MEXICO ' 
M)WCCO 
NSTKERLAVD? 

, NEP^L 
NIGER 
NIGLHIA 
NORVAY 
PAKISTA'O . 

■ PERI] 
miLLlPiS'ss 
WLAND , 
WRIUGAL 

mm!\ 

RWA^VDA 
SAi ARABI/^ 
SEMEfirtL ' 
SO. APHlCft 
S. RHODESIA 
SPAIN. 
"SRI LANKA 
SUDAN 
SWEOEM 

SVlTiERLA^D 
, 5Y Mm Rtp 

THfllLA'JU' 
TOhUKY 
. UGAVDA 

, U.S.A. 
ll.S.S.R. 

UfCEli TOLTA 
VIET m 

■ ■YOROSLftVlA 

imih 



0 


0 , / 


0 


,0' 


5 


5'''' 


0 , ■ 


0 


0 


0 


"0 


0 


fi 


0 


0 • 


196 


0 


0 


0^ . 


. 0 




0 


0 


.389 


Ml 


0 , 


0 


0 


2812 , 


0 


0 


^ 39 


0 


0 


0 


0 


0 - ■ 


'0 


..'■■0 ■ 


0 


3^1 


73 


0 


1729 


^55 


0 


0 




I2SI 


280 


0 . 


V 

68 


92 


4630 


0. 


39 


. 66 ' 
' |/)B62 


0 


■ 0 


150697i 


382? 1. 


7 


252 


26 


a ^ 


0 


6612 


1367' 




198 


0 


'0 


0 . 


\. 0 '"^ 


0 


0 


'0 


\8658l 


0 


0 


0 


KJ 




0 


0 


' 0 


276S 


0 


0, 


n 
u 




700 


3070 




0 , :^ 


0 


0 


0 


Q 


0 


0 


0 


0 


0 


0 , - 




u 


0 


0 


' 0 


0 


0 


0 


182 


0 


0 


3/»5 


0 


^601 


18B1 


5336 


20 




0 . 


0 


0 


119500.' 


,0 


0 


716 


3; 

535P,/l?. 


0 


0 


0 


,yi06fl00. 






155/167. 


.5716 




V 0 , 




0 




0 


0 , 


0 




' 0 


0 


0 „, 


0 


0 

' • » ■ 


699 


2660" ■ 




1^3 
959 


0 

.0 


0 
0 


0 

D 



0 
6 
0' 

mi 
0 

28' 
1597 
0 . 
0 

9091^, 
1626' 

0 

347 
0 

\m 

0 , 

8855B3, 

0 , 
0 

0 • 

m 

0 
0 
0 

0 - 

5662 
13 ■ 
3410 
0 

83' 
0 

0 
0 
0 
0 

3200 ' 

0 

0 



(0 



o 16 

ERIC / 



1? 



m m. ooiMTiiics 



1 1 



mm 


w 6A5 ffr:i 




n. y.^ ^'B 
















1001 


^ C 






>» ♦WW 




'A 






nlM. V 










' l'if.3 




♦ '1 ( ,r 




0 


51! 


315J7 








^0 ^ ■ 


BIO 


0 




C6" ■ 








BULGARIA /' 


'di 






0 




0 


0 




0 


M'JADA / 


U9V 










0 


0 




0 

V 


CHILE 


71 


; 4000 ' 




ft 
y 






0 


0 




OOLOIRiA 


73 




H7sn 


IHi) 


CUBA 


V 


0 


An?? 


n 
ft 


CZECHflSLOV* 


11 








DENMAHK 




0 




0 70 




0 , 


0 




V 


ffiUADOR 






twJU 


u 




108 


W J 


7»^91 


n 


fli SAI.Ui^PQR 


0 


0 


'HO 


n 
V 


nuippJA 


0 ■ 


0 




flJ 


FINLAND i 


0 


0 




J i 


nwwcE 


Ifl? 


7517. 


UR998i 














CHAMA 


0 


0 




\l 


mm 


0 


0 


\JH€» 1 


R 

.u 




0 


0 


780 

lav 


0 


OUINEA 


0 


0 




n 

u 


HAITI 


0 


■ 0 


115 


0 




0 


0 


5574 


61 ' 


HUWGAllY 


119/. 


MIO 


M990 


973 


IMDIA 


44 


693 


6035fi» 


0 


MDOMKSIA 


156 




20BA. 


33 


IRAN 


5656 


17185 


8309 


0 


IRAO 


506 


B70 . 


1929 


0 ■ 


ISRAEL . 


1 




7630 


0 


ITALV 


170 


um 


1248^.0. • 


' 2894 


mw COAST 


0 


0 


5SB 


0 




8 . 




3B5Ma. 
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(llsttiig for variables 21-24 continued) 



■ - 1* 

■■ ■ • ( 

KBIlfA 


. 1 

* ■ 

•0 ■ 




1. 

t : .' 

".5S5'' ' 


1 , 

r ■ • ■ . 

■ . • 


mu 


0 ■ 


■■■ ■ 0, ■ 


I095t 


0 


'LAOS 


0 ■ 


0 


I6i| 


b. • 


V! HUrSIA 


0 . ' 


■0. ■■ 


3574 ) 


.0 


HALI .' , 


0 ' 


6 . 


'44»fi 


.0 


■HEXICO . 


J05 


18694 


3l3e3 


, 0 


NOnOCGO 


0 < 




,2i)S5 


0 


NriHERlANOS 


'2209 


' 56385. 


.44904. 


74'T 


. MEPAL 


0 ■ 


■ a ' 


'60 


' d 




0 . , ' 




38.3 


'0 


NIGERIA . 


1161 . 


' 159 A 


.•■1880 


; 0- . • 


NORtfAY 


439 




6&930. 


,182 
'0 


PAKISWV 


547 


3795 


7068 


PERU 


74 


480 , . 


j384 




PHILLIPINES. 0, 


' 0 1 J 


" 8666 


• 'i'22 


POLA^ID: 


0 




■69887. 


6782 


RfiPTiin^i^ 


u 


. 0' ^ 


■ 'm 


^125 '. 


' ROMANIA 


0 


■ 0. 


39454; 


S22 


RUANDA 


0 


0 ~ 


34 


0 


SAi ARABIA 


0 




805 


0 ■ 


V SENEGAL , 
90. AFRICA 


0 


0 


303 


0 


0.' 


0 


, 58717. 


• 1800 , 


S* RHODESIA 


0 


0 


6800 


, 0 


SPAIN 


0 


0 


61917. 


'S3B7 


SRI LANKA. 


0 " 


0 


900 


6 


SUDAV * ' ' 


0 


: 0. 


^59 


n 


SVEDEW 


0 


0 ' 


66549.' 


511 


$uit::erlavd 


0 


'0 , 


32785. 


383 


Si ARftB REP. 


0 


0 ■ ' '■ , 


1049 ' 


0 


' THAILAND - 


0./ 


0 > 


4S4S 


0 


• TURKEY 


0 / 


0 


9781 


726 


, WANDA' 


i 


0 


6)7 


■ 0 . ■ ' 


IN* KlVODO.r 




0 : ; 


256098. 


ir649 


TANZAMlA 




0 


482 


■ 0 


l)iS«A. 




0 


l.7l7S8i;+06 £6400 




\ 


0 


. 800360. 


33929.. 


UPPER WLTA 




0 


33 


0 


VIET NAH 


0 \ 


0 ' 


1815 


0 




n 


(f 


6.2 


0 




0 ' . , 


0 


29509 


16") 


WIRE 




0 


378 


0 


mm 


0 . 


0 

(' 


1168 


0 




1 



How to Load the Program and Flies 

1. Load the three program tapes: EARTH, LDTAB, and LDLIST, and 
after e^ch tape is leaded, NAME it and SAVE it— like this: ^ 



• • Load Tape for 

- ■ EARTH 

LDTAB 

, LDLIST 

• ♦ ^ / ■ 

2. Open and load the fUeS by! typing 
> ■ OPEN-LIST, 14 

OPEN-TABLE, 83 
GET-LDLIST 



NAME & SAVE by t yping 



NAME -EARTH 
SAVE 

NAME-LDTAB 
SAVE V 

NAME -LDLIST 
SAVE 



\ 



RUN 



(Computer print DONE) 

. ^ GET-LDTAB 

RUN , 
(Computer will print DONE) 

3. Run the EARTH program by typing: " . \ 

{ \ GET-EARTH , ^ , 

HUN ^ • 

Hlnlb on Using the Program . • 

1. ^ The progi^am assumes you are using a Teletypewriter with all upper 

case letters. If you have lower case available, do aot use It— all 
student Input must be in upper case (capital) letters. 

2. Only the first letter need be typed for any requested Input. For 



example, 



WANT INSTRUCTIONS (YES OR NO)?Y 
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Expanding the Data I^ase 



Although^the~dafca-base~ts-coniplete-aiid-ndeq^ EARTH ' 

unit, individual students or teaehets^ay wish to add countries or variables 
to the data base, particularly. If more recent data^ becomes available^ 
Directions for doing so are ^ven below. . 

1. To ADD COUNTRIES (up to a maximum tptal of 120 countries) 

a. In the EARTH program, type la the total number of countries 

you .wish In each place marked by an underline below. Th^ total 
' 83 Is currently In each of these positions In the program ' 

\ • ^ 90 C - * 



y , 110 DIM C(_), V(24), R^>,'0(^), -P(_>. " 

b. In the LDLIST program,, type in the total number of countries you 
wl3h In the place marked by an underlihe below., Again, the total ^ 
83 Is currently In this position In the program. / 

/ ' ' ' 80 C - " ' * ■ 

■ — , ^- 

Retype the necessary DATA statements In LDLIST, ^adding the names 
of the additional countries in their correct alphabetical order. Insert 
DATA statements Lf necessary. ^ 

:~c: Tn~tTie"XT)l'AB pragr^un, make the following changes: 

90 FOR Z - 1 to the total ^m^^ of countries 

Insert DATA statements for each additional country. In correct 
alphabetical order. The DATA statements should Include the name 
of. the country followed by the 24 data Items, In order. 

d. Open the TABLE iind LIST flies. LIST should still be opened to 
14 records, and TABLE shpiad be opened to a nufnber of recoi^ds 
equid to the nimiber of countries you now have. For. example. If 
you added five more countries, you would open the iNABLE and LIST 
files as follows: \ 

OPEN-TABLE, 88 ' ' 

J . 

OPEN-LIST, I i ' , 

t ^ ' ^ . 

0. Load thi> files by HIJNnln^ the LDLIS'I^ and LDTAB programs. 

' V .^/' . ■ . ' ■ f ■ • 

21 ' 



To ADD VARIABLES (Up to a ir^lmupi total of 4.8 variables) 
'■'.*.■■•, ^ 
a. In the EARTH program>^ ijiake the following changeB: ' 

100 V ^ the total number of variables (there are Ho^y 24) 

. ' ' ■ t. ^ ; 

no DIM C (83)* V(_), iR(83), 0(83), P(83) 
the total number of variables 



b. In the LDLIST p^'ogram,, make the following changes: 

90 V =^ the total number of variables 

Add DATA statements after line 500 (Use the RENUMBER 
command periodically If.you are adding several DATA statements 
betAveen 500 and &10). For each variable added, the DATA 
should be of the format: 9-characl«r abbreviatfbn and 3 
spaces, **a 43-character variable name/'* ' 

c. In LDTAB, make the following changes: - 

" V 70 DIM A$(14), V(_) . , . " », 

the total number of variables ' 

f ^ . ■ " ' - 

130 FOR X = 110 

/ Insert a; t]ilr^' DATA statement (eVg. , at 195, 215, 235,' 255, etc.)\ 
; for each of the 83 (or more) countries, ^ this third DATA statement 
should contain the values for eacli variable you added. 

If you are ^adding variables, fciit not countries, the files can be 
opened to the same sizes as for the 'original data base: 

OPEN-LIST, 14 - 

• •*■■[. 
OPEN-TABLiE,8:3 ■ 

' ' ' • , <i ■ ' . / '■ .v> ■ ■ 

To MAKE A CORRECTION IN AN iNmVIDUAL DATA- ITEM 



Find the specific DATA statement In LDTAB and retype that statement, 
correcting the datd item when you come to it. Then, RUN LDTAB' 
iiguln to- load, the TABLE file with the corrected data base. 



. _ ^StUDENT GUIDE^EXERCISES^. L ^ 

Suggestions . ■ 

Remind students of the following: 

♦ ■ • ■ . 

1. ' Where data on a particular variable was unobtainable or 
, unavailable for a particular country, a zero was entered 

In the data base. 

2. Do not enter zeros In the CAPITA or INCRS programs, 
except to stop. Instead, omit those countries for which 
zero appears in the table. 

3. rin using the TABLE option, numbers of cbuntx^ies and 

variables must be entered In consec^utlve order. ' 



'Answers 



1. Here are sample jruns showing the expected student prtntoui 





WHICH OPTIOWrft 



• WHICH VARIABLE712 

/^L COUNTRIES. CYES OR Md)?M 
1 K)V MANY? 12 
. TOP, OR BOTTOM? T 



THI S WILL TAKE A M INUTE. • .PLEASE BE PAtlENT 



1971 EN 




U» S. R- 

. JAP/ 
GERMAN Ir 
IN*. KI^JQD0(5| 
FRANCE ' 
CANADA 
ITALY 
POLAND 
INDIA- 

CZECHOSLOV* 
SO. AFRICA 



ONSUMED (MiM.T.CiE*) 



2327. ^4 
I I i2. 19 
34 1. 9 
320.06 
306. 68 
201 .48 
201.38 
145. 04 
143*24 
102.52 ^ 
95.92 
71.71 



WHICH OPflONriR i^'- - 7-r: 

WHICH VARIABLE? 12 - ^ 

ALL COUNTRIES (YES 'OR NO ) TN 

TOW MANY? 12 

TOP OR BOTTOM? B 

-THIS WILL TAKE A M INUTE. . . Pt^EASE PE PATIENT 

1971 ENfeRGY CONStJMED CM.M.^^. E. ) . ; 



SENEGAL . 52 

AFGHANI STAN .47 

GUINEA • 43 

LAOS .28 

HAITI 14 

.MAL I . • 1 3 

CHAD ■ . 1 
MEPAL . , .1 

NIGER • -09 

UPPER UOLTA . 07 

BURUNDI ' . Q4 

RT'/ANDA . 04 



24 



row MAMY COlNTiRlESrS^ > . . 

AFTKR' rACH • ? • TYPF: A SJ'^IHKW' -THK vL I ST' OF CHrNITHI F^S« 
•or; TYPE 'O* TO SEE THE H ST. . v ^^ ■ 'V 



?io . 

711 

712 

rij 

725 

?30 • 
73 1 

>39 

?50 
?57 

?7'i 

776 
777 

7 73 



VOW MANJY UAHIABLES (5 Ort LKSS^ PLEASE ' 

AFTHra EACH •? • TYP^ A ^)TJMBEF^ FRO^t THf'uIST OF VARIA^LFS. 
0R> TYPE '0' TO S^E TKF LIST. vt-7/> 



7 1 

7^J 

FOR COlNTRI?:S 1 
39 al . V /*^* 

77 ^ 7B ■ . : ■■ 

AVJO ^ARIAfci^fe 1 



10 



\ 1 
«S0 



SI 



S7 



2"^ 
/SO 



2^ 



30 
^3 



3 1 
74 



3 A 
7-<- 



^ 'JAHlABtE 



COIJWTRY 


7 1 


POP, 


7 1 IMCOMF 


AFGHANI I STfVNJ^ . 


17 


. 4tJ 


0 


iJURupini'; 


•3. 


M5 


•.■»oo 


CANADA 


21 


. 59 5 


a 141^ 1. 


CHAt> 


3. 




0 


CZHCHOSLO'7. 


14 


. 5 




FRANC F 


5 1 


. 25 


1 323 44. 


OFRMANY 


7S 


. 1 i»9 


194 147* » 


nrUNFA 


4- 


01 


315 


HAITI 


4- 


9<S9 


500 ' 


INDIA 


550. 374 


4^219. 


ITALY 


54 




93508. 


JAP AM 


104. 6<S1 


19BBt!5. 


LAO S t ' 


3« 


033 


153 


MALI 


5. 


143 


0 


VEPAL 


I 1 


.'^9 


i\fM 


WIOER 


4. 


126 


0 


POLA-^D 


3.i] 


. 749 


0 


RWANDA 








SENEGAL 


. • 




; 71M 


SO. AFRICA 




. 07i? 




iff* KlNri»i 






V t?5?T5. 


'f.ivA. . ; 


ii07. 0'» 


94^77a. 


W. S.'R. 


245. 09 1 




UPPERS i;OLTA 


s. 


49 I 


0 ' 



1911 ik(.OM£ Fe*i CAfi/TA 



i 

4 

I 
I 



c. (Note: Countries?! with zeros In the table are omitted. ?l^ro^; 
mean "Data Unobtainable") 



TONE 

GET*-CAPITA 
F«JN 

CAPITA 



1971 INCOftE PER CAPITA 

ENTER POPULATION IN MILLIONS* THEM MAT'L. INCOm!^ 
IN MILLIONS^OF DOLLARS <0#0 TO STOP) 
73* 6 1 5*200 
$ 55\385 
?aU595#8l42.l. ' 
S 3770. 36 
?5U25> 13234/1 
$ 2582* 32 
?75. I29# 194 U7 
$ 8584. 18 
74.01#3 15 
« 78. 5536 4 
74.969i 50O 
$ 1 op. 624 
7 50. 374^46219 
S 83.9774 
- 754. p78> 93508 
S-1729> 13 
7104. 661> 198885 ^ 
S 1900* 28 
?3.033>153 
$ 50.4451 
?11.29>887 
$ 78.5651 
?3.827>a6>6 
$ 69.5061 
74.022>718 
5 178.5^18 
722. 092> 16567 
S 749. 9 1 

755. 566> 125735 > 
S 2262* a 
?207.d5>9iA6778 
S 4572.7 
70#0 . , 4 



iNDIfK 

Italy : 

i/Nireb Kff^G2>of^ 
U.S.A. • 



DONE 



ERIC 



26 



2. 



WHICH OPTIOMTT 

HDV M/wy COUMTniKsia^ 

^TER EACH •? • TYPK A MllMPFn PrOM THE LIST OF COU>JTniES. 

on* TYpr '0' TO srr tmf l»st. , 



710 
711 
71S 
717 
795 
7e6 
730 
731 
734 
739 
741 
744 
746 
750 
751 
757 
760 
762 
763 
7 74 
776 
777 
778 



lOV MANY VARIABLES <5 QR LESS* PLEASE)? I 

AFTER*EACH '7 • TYPE A WUMHKR FROM THE LIST OF VARIABLES. 
0R# TYPE 'O* TO SEE THE LIST. 



714 

FOR COUNTRIES 1 
39. .41 44 
77 78 

MD VARIABLES 1 4 



10 
46 



1 1 

50 



IS 
51 



17 
57 



25 
60 



26 
62 



30 
63 



31 
74 



34 
76 



VARIABLE 



do UN TRY 


71 EM/ 


AFGHANI STAN 


27 


BURUNDI 


1 I 


CANADA 


9326 


CHAD 


27 


CZECHO SLOV. 


6615 


FRANCE 


392a 


QCRMANY 




GUINEA 




HAITI 


29^ 


INDIA 


106 


ITALY 


266s 


JAPAN ^ 


3267 


LAOS 


91 


MALI 


25 ^ 


NEPAL 


9 


NIGER 


22 


POLAND 


4374 


RVANDA 


10 


SENEGAL 


129 


SO. AFIilCA 


2895 


IN. KINOUOM 


5f>07 


U.S. A. 


1 IP.44 


U.S. S. R* 


4535 


UPPER VOLTA 


13 
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500 noO 1000 2000 2500 3000 3500 4000 '4500 5000 

iNcO^^n: PEK -CAPITA 
(MILLIONS OF DOLLAHS) 



WHICH Opyl£i^lT 

HOW MAMy " CQu^JTnIE5? l2 

AFTER *1' TYJ^E VJUMBER FROM THE UlST OF COWTRIES. 

OR* TYP5 To S^E 'T^E LIST. 

711 ■ ' ■ . . ■ 

717 

785 

726 , 
73A 

739 . ; 

741 , V ' V , . 

757 

763 

77iJ » ^ 

776 . ' .4 . ^' 

77^ ... •/ : 

HOW MANY WRIA8LE5 OR LESS, PtEASE)72 

A^TER Each ♦r' tyj»e ^ 'Dumber from the list of i;>^riables. 
0R# TYPt JQ*' TO s^:e the list. . 



76 
714 



3/: 



FOR COWTRIES 11 17 
U 77 



VARIABLE 



CANADA 
CZECHOSUOV. 
.'rRAMCE 
QERMAMr 
l^fDIA 

iTAtr 

JAPAN 

POLAND 

SO. AFRICA 

IN* KINGDOM 

IJ.S»A» 

U.S»S»R» 



3200 
3030 
3270 
3130 
1990 
3020 
2470 
3140 
2730 
3170 
3300 
3180 



95 2^ 



71 EN/CAP 



9326 

6615 

3928 

5223 ^ 

196 

2682 

3267 

4374 

2895 

5507 

1 1244 

4535 



34 



39 



41 



57 



63 



74 



11,000 
.10,000 

9, 000 
8,000 
% 7,000 
S 6^000 

CO 

^ 5,000 

>' 
O 
K 

^ 4,000 
W 

3, 000 
2,000 

1,000 



V 



J- 



I 



I 



J- 



J 



1500 1750 2000 2250 2500 ^ 2750 3000 
DAILY CALOnii; CONSUlVtPTION PKU CAPITA 



3250 3500"* 



20 



29 



4. a. Values entered In a thli^ column will vary, depending;! 
on the cduntrles. selected. 
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WHICH 

H3W MAMY C0lJMTniES?83 

HOW MAVY VARIABLES <5 OR LESS# PLSASF.)7 2 

AFTER EAgn •? * TYPE A VtJtlBER FROM THE LIST OF VARIABLES. 
0R# TYPE •0* TO SEE THE LIST. 

7l\ ■ . 

1X 2 . • 

FOR ALL COUMTRIES r j ' ■ 

PND VARlAflLES .1112 

' VARIABLE 



COUNTRY 


68 EN CON 


7 1 EN CON 




'/ 

/ AFQHAMISTAM 


• 64 


*47r 




/ ALGERIA > 


4*81 


7. 2^ 




ARGENTINA 


33»3 


41. 75 




AtrSTRAL I A 


60» 7 


68. 21 




AUSTRIA 


2.1 • 1 A 


24. 09 




BELGIUM 


52» 13 


61.57 




BOLIVIA 


• 96 


1.13 




BRAZ I L 


39« 89 


47»7 




BULGARIA 


27»7A 


34. A 1 , ' 




BURUNDI 


• 03 


.04 




HAM An A 


1 67» 97 


20 1 . 3A 


CHAD 


• 06 


* 1 




CHILE 


1 0* 76 


1 5* 09 




plj IMA 




V 




COLOMBI A 


Q 


0 




CUBA 


8*43 


9. 97 




C2ECH0SL0V* 


82*76 


95. 92 




DENMARK. 


22* 83 


26.45 




DOM* REPUB* 


• d4 


I. 1 




ECUADOR 


U49 


1. 98 




EGYPT. - 


9*54 


9.69 












CTHIO PI A 


• 55 


.81 ■« 




FINLAND 


1 6« 34 


20. 3 


u.n % 


FRANCE 


163-95 


201.48 


GERMANY , 


270.02 


320.06 




GHANA 


1*06 , 


1.65 




GREECE 


9»04 


13.01 




GUATEMALA 


1.17 


1. 33 




GUINEA 


.37 


.43 




HAITI 


. 13 


. . 14 




HDNG KONG 


2.95 


4.21 




HUNGARY 


28.93 


34. 1 1 




INDIA 


94.49 


102.52 




INPONESI A 


11.78 


15.39 




IRAN 


13.17 


26.66 




IRAO 


5*49 


6. 34 




ISRAEL 


5.53 


8. 16 




ITALY 


119.61 


145.04 


IVORY COAST 


.•65 


1.17 




JAPAN 


254.47 


341.9 


KENYA * 


1.48 ' 


8.01 




HDREA 


17.75 


27.94 




LAO S 


• 08 


.28 




W. MALAYSIA 


3. 73 


4.31 




MALI 


. 1 


.13 




- MEXICO 


53.36 


64. 7 


La. 


MOROCCO 


2. 71 


3.13 


Z7.SS% 


NETHERLANDS 


52.44 


66. 89 


NEPAL 


. 12 


.1 




NIGER 


.07 


. 09 





continued on next page. 



21 



■ J 



30 





I • 75 * * 


3« 33 




16 * 84 


20*29 


PAKI STAM 


10* 79 


12*88 


PERU* 


8* 24 


8* 7 


PHIULlPtMC^ 


9* 45 


1 1* 32 


POL AMD 


123* 67 


143* 24 


PORTUGAL 


5» 12 


?• 14 


nOMATJlt 


47« 1 


60*9 


RViWOA 


• 03 


• 04 V 


SAk ARABIA 


4. 57 


7*87 f 


SENEGAL 


. 55 


. *52 


SO* AFRICA 


59*04 


71*71 


S* RHODESIA 


2« 77 


3*4 


SPAIM 


41*86 


55*08 


SRI Lanka 


1* 37 


3* 07 


SUDAN 


I • 35 


1*9 1 




42* 59 


49* 35 


SWITZERLAND 


18* 56 


82*63 


SY ARAB REP 


2* 47 , 


3*13 


THAILAND 


6* 87 


10* 47 


TURKEY 


15* 12 


18*65 


UGANDA 


* 5 


. 73 


UN* KINGDOM ' 


274* 83 


306*68 


TANZANIA 


• 65 


•93 


U*S*A* 


2080* 32 


2327*64 


U«S*S«R* 


965*21 


1 1 12* 19 


UPPER VOLT A 


*05 


*07 


VIET MAM 


.5*54* 


5*46 


YEMEN 


• 56 


*94 


YUGOSLAVIA 


25*21 . 


33*07 


ZAIRE 


1*42 


I* 73 


ZAMBIA 


2*26 


1*96' 



Again, values entered in a third column will vary, depending 
on the countries selected. 



WICH OPTION? T 

HOW MAWy COUNTRIES? 83 

^ HDW MANY VARIABLES (5 OR LESS/ PLEA'^i:)?2 

AFTER^ACH •? • TYPE A NUMBER FROM THE LIST OF VARIABLES. 
OR-. TYPE '0' TO SEE THE LIST* 

?9 

?10 ■ ' ' ^ ,. : ;^ 

FOR ALL COUNTRIES. 

AND VARIABLES 9 10 ' 

VARIABLE * 



COUNTi=lY 


68 EN PRO 


71 EN PRO 




AFGHANISTAN 


2*4 


3*54 




ALGERIA 


59* 16 


'52*99 




ARGENTINA , 


30*56 


37*63 




AUSTRALIA 


48*82. 


75* 78 




AURTRIA 


10*08 


9.77 




BELGIUM - 


15*02 


1 1*18. 




BOLIVIA 


2*64 


2.46 




BRAZIL 


17*66 


20*39 




BULGARIA ' 


16*03 


14*8 




BURUNDI - 


0 


0 




CANADA 


161*22 


223*7 





4'. b. (continued) 
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CHAD 


0 


0 


CHILE 




9.08 


CHiriA 


0 


0 ^ 


. COLOMBIA 


0 


0 


, CUBA 


• 17 


.•86 


CZECHOSLOV* 


78.99 


81.79 


DCNMARK 


• 25 


.0 


DOM. RCPUB* 


• 01 


«01 


ECUADOR 


• 36 


• 31 


EGYPT 


IN 52 


19.81 


Eli SALVADOR 


• 05 


• 06 


ETHIOPIA 


• 03 


• 03 


' riMLAND 


l*3t 


1. 31 


PHANCE 


61.87 


54.22 


QCmANY 


165.07 


, 175^5 1 


, J3HAMA 
-^ORECCC 


• 38 - 
8. t 


• 36 
3.92 


GUATEMALA 


• 08 


.03 


OUIWEA 


0 


' 0 


HAITI ' 


0 


0 


}0'4G KOISTG 


0 


0 


HUM GARY 


21.75 


23. 24 


^WDIA 


82.7/1 


84.91 


If^OOMESlA 


43.41 


" 62. 33 


IRAM 


186*62 


317.29 


IRAQ ^ 


96.89 


1 ro. 07. 


ISRAEL ' 


2.97 


8.23 


ITALY 


23.29 


26. 26 


IVORY COAST 


.03 


• 02 




59.31 


49. 47 


KENYA 


.03 


.04 


ra)REA 


10.36 


. 12.95 


LAOS 


0 


0 


W. MALAYSIA 


.1 


. 13 


MALI . / 


0 


0 


MEXICO ^ 


53.69 


59. 2 


MDROC-CO 


.72 


.76 


NETHERLANDS 


28.22 


64.15 


MEPAL 


0 


.01 


NIGER 


0 


0 


MIOERIA ^ 


9.48 


99.81 


NORWAY 


7.8 


8.67 


PAKtSTAM 


5.08 


7. 31 


PERU 


6.01 


• -^5.27 > 


PH1LLIPIVE5 


.25 


.37 


POLAMD 


140.88 


163.8 


PORTUGAL 


1. 06 


1.02 


ft)MANIA 


52.8 7 


62. 73 


RVAMDA 


• 01 


.01 ^ 


SA. ARABIA 


186* 18 


295. 35 


SEMEGAL 


.0 


0 


SO. AFRICA 


51.77 


58.83 


5. RHODESIA 


3.57 


3.75 


SPAII^ 


16.99 


16.54 


SRI LANKA 


.06 


. 1 


SUDAN 


.01 


.01 


SWEDEN 


6. 12 


6.51 


SWITZERLAND. 


3^67 


4.01 


,SY ARAB REP 


1.09 


6. 88 


THAILAND 


.28 


.39 


TURKEY 


10.55 


11.01 


UGANDA 


.09 . 


. 1 


UN." KINGDOM 


173. 71 


176.01 


TANZANIA 


• 03 


.05 


U.S.A. 


1876*06 


2029. 19 


U.S.S. R. 


1087.45 


1250. 26 


UPPER VOLTA 


0' 


0 


VIET NAM 


0 


0 


YEMEN 


0 


0 ' ^ 


yUGOSLAVIA 


19.3 


23. 13 


ZAIRE 


• 4 


. 56 


ZAMBIA . 


• 61 


• 89 



IU.Z'7% 




23 



(Note: Those countries for wfelch data was unobtainable have 
been omitted from these tables.)" 



VW^CH OPTlON7n ^ 

V/HicH VAniAHLE? 15 

/M-L COUNTRIES (YES OR N0)7y 

THiS^WILL TAKE A MINUTE. PLEASE DE PATIEWT* 
COAL RESEnVES (M.M.T. ) 



U*S« S. R* 
U*S«A* 

CHIMA 
Z^7DIA 

SO. AFRICA 

GERMA'Sjy 

CA^J'ADA 

rt)LAMD 

JAPA^J 

AUSTRALIA 

IN. KINGIXJM 

COLOMBIA 

CXECHO SLOV. 

BRAZIL 

S.. RHODESIA 

MEXICO' 

FRANCE 

NETHERLANDS 

PERU 

BELGIUM 

PAKISTAN 

TURKEY 

BULGARIA 

IRAN 

VI ET NAM 
INDONESIA 
HUNGARYIff 
ROMANIA' 
ARGENTINA 
TANZANIA 
NIGERIA 
YUGOSLAVIA 
CHILE 
NORWAY 
ZAMBIA , 
MOROCCO 
SWEDEN 
AFGHANI STAN 
. ZAIRE 
PORTUGAL 
ALGERIA 
AUSTRIA 



I .4063CE+06 

I. J lOOOE+06 

I. 01 JOOE+06 

106860. 

72^65. 

70000. 

61000. 

/I57<ll. 

192/i8 • 

16000 

15500 

12500 

1 1573 

10675 

6613 

3^66 

2800 

239^ 

233^4 

1796 

1661 

1335 

1.1A7 

1000 

lopo 

71 A 

590 

^50 

370 

350 

319 

218 

166 

115 

96 

90 

85 

73 

26 

20 

3 



33 



24 



VHICH VARIABLE? 17 ♦ ^ . 

PLU COUNTRIES <YES OR N0>7y * 

THIS WIUU TAKE A MIMUTE. ..PLEASE BE PAT^E^^T- 

LIGNITE A BROW^-COAL RESERVES (M.M.T.)- 



U.S.A. . 

AUSTRALIA 
GERMAMY 
YUGOSLAVIA 
CANADA 
POLAMD 
CZECHOSLOV. 
U.S.S.R. 
HUNGARY 
CHILE 
PERU 
INDIA 
INDONESIA 
TURKEY 
<WPAN 
GREECE 
ROMANIA 
BULGARIA 
SPAIN 
CHINA 
ITALY 
PAKISTAN 
AUSTRIA 
PHILLIPINES 
NIGERIA 
DENMARK 
FRANCE 
PORTUGAL 
KOREA 



406000* 

95600. 

30000 

26600 

24100 - 

14663 

9857 

5716 

5679 

5365 

4630 

2063 

6000 

1661 

1733 

1575 

1367 

1 1 17 

760 

700 

^24 

260 

143 

88 

73 

50 

30 

26 

5 



FRir 
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i yHICH OPTION?? 



WHICH VAni;ABLE7 19 

ALL COUVtl)iES CYBS OR NO)?y : 

THIS WILL TAKE A MINUTE. PLEASE BE PATIENT. 
1978 PETROLEUM RESERVES (^l.M.T. > 



SA. ARABIA 

IRAN 

U« S» A« 

IRAQ 

NIGERIA 

CHINA 

It^^DOMESIA 

ALGERIA 

CANADA 

ECUADOR 

UN. KINGDOM 

EGYPT 

NORWAY 

MEXICO 

ARGENTINA 

COLOMBIA 

AUSTRALIA 

ROMANIA 

W* MALAYSIA 

SY ARAB REP 

BRAZIL 

INDIA 

GERMANY 

PE^IU 

YUGOSLAVIA 

NETHERLANDS 

BULGARIA 

ITALY 

DENMARK 

HUNGARY 

BOLIVIA 

AUSTRIA 

TURKEY 

CHILE 

FRANCE 

SPAIN 

POLAND 

PAKISTAN 

JAPAN 



18659 

8515 

4899 

4433 

1789 

1709 

1466 

1835 

1080 

834 

716 

531 

46^ 

389, , . 

344 . 

^86 

808 

198 

196 

188 

1 04 

90 

71 

68 

48 

39 

38 ^ 

35 

33 

30 

88 

86 , 

20 

16^ 

13 

9 

7 

5 

3 
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<«ICH OPTION? S 

fLV COXJ^iniES (YES oh N0)7y 

THIS WiLt tAKE A MI WUTE* i • PLEASE BE PATIENT* 
1972 .NATUfU^L GAS . BESERVpSf C 1000 M»C.M. ) 



IRAN 


5656 


ALGERIA , * • 


39ft^ 


NjETKERLANDS 


2209 


CANADA 


1499 


^NIGERIA 


1,161 


AUSTRALIA 


1069 


IRAQ^ ^ 


566 


■p^^Hif STAN 


547' 


NtfftWAY 


439 


GERMANY 


351 


MEXICO 


305 


ARGENTINA ^ 


206- 


FRANCE 


187 


ITALY 


170 


INDONESIA 


156 


BOLIVIA 


139 


ECUADOR 


122 


HUNGARY^ 


119 


EGYPT 


^ 108 


CHINA 


99 


PERU 


74 


COLOMBIA 


' 73 ' 


CHILE 


7i 


INDIA 


44 


BULGARIA 


28 - 


BRAZIL 


86 


AUSTRIA 


16 


DENMARK 


14 


CZECHOSLOV. 


1 1 


JAPAN ' 


8 


..ISRAEL 


1 



WHICH OPTION? STOP 

DONE , 

BY?: * ^. 

024 MINUTES^OF TERMINAL' TIME 



36 
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SOURCES OF mFORMi«;i(SrN QN THE ENERGY CHlSIS 



Books 



Energy and power, W* Freeman. San FrancWco: Scientific 
American Books, 1971. (Eleven feasy-to-read articles about energy . today. ) 

iEnergy In the United ^States: Resources, Uses and Policy fssues. > 
H. H. Landberg and S. H. Schurr. Ne>y York: Random HoUs^, 1967. 

Energy—The New Era. S. David Freeman. New York: Walker and 
Company, 1974. (A look at how the energy crisis developed, and how It 
might be Unproved.) ' ; 

■ • , ' . ' ■ ■ . ,' i''- * 

Energy for Survival, Wilson Clark. Garden Clty,^ New Yo^k: Anchor Books, 
1974. (An analysis of alternate ener^ sources ,WHoee;^deyeloi^^^^ 
provide a partial /solution to our ettergy prol)^^^^ 



^ .. > ^ " 

Energy Crlsls—Voli i piie 1>' 19g9r73. * Lester A. Sobcl, Ed. New York: 
Facts on F*lle, Inc. , 1974. ^(Thls book traces the development and events 
of the energy crisis through a series of hews articles written as >yeekly 
coverage of news qvent9.) * , 

A Time to Choose— America's Energy Future. Final Report of the Ener^ 
Policy Project of the Ford Foundation. .Cambridge, Massachusetts: Balllnger 
-Publishing, 1974. (An examination of the future shape of the energy shortage, 
this report is v^ry well documented^ with up to date data.) 




Newspapers 

Everyday newspapers carry new stories about the energy crisis. Including 
.local and national problems and plans- 



perlodlcals and Reference Works—Subject Hisadtngs j ■ ; ;> 

A wealth of Infonnation on the energy cHsls ^ls cont^fled In ^periodicals a^^^^ . 
standard -reference works like encydfiopedlas. Subjec^jS^adings \frhlch you ; ' 
can use to locate ihtormation through card catalogs,' Enbyplopedla Yearbbp^^^ V? 
hfidexes, and other standard Indexes are: 



ERLC 



Atomic energy 
Atomic power . 
Atbmic riSsearch 
Automobiles 



28 
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' C9?^l mines and mining ^ 

Conservation of energy 
Conservation of natural resources ' ' 

Diesel engines \v 

Economics / .^ 

Electric power 

Electric utilities : ' 

Electricity 

Eiiergy crisis 

Energy crisis— U.S. Foreign Policy 
Energy crisis — sources 

Fuel 

Fuel research J 
Fuel supply 

Gas, natural ' " 

Gas, Industry 
V Gas ih^nufacture . and worts 
Gasoline ^ 
Geothermal energy 

Hydroelect^^ld plants 
Hydrogen, liquid 

Industry and state 

Industry , and the environmental mov0ment 
Insulation 

Internatignal Atoxnlc Energy Agency 

• . Nuclear fuels 

Nuclear fusion ' 
/Nuclear; reactors > 

X^etrd^um ; , 
F^t^Jtleum Inclustry 
Petroleum refineries 
Petrpleum aupply > 

■/'l^pwe?^re:Soi|rcesi ' ; 

. ' Solar energy 

Soliar furnaces (heating) 
Strip mining 

United States Energy Agency ; , 

United States Federal. Power Commission 

^ Wind' poW^r '^^^^^^^^^^^ ^g, ^ 



m 



Vt6itam LlatlfUt of EAHTH ■ ■-^ ::■ C - 

MRTH' r 
iO *ILSS TABLE#LISf 

aO. REHt T^JS t>A0ORAM VRITTIM BY JUDY EDWARD^5#WWR?L# JUME# 1975 
v3p: Rtolt ?BABTH' IS DESIOniD TOR USE JMH THE*EART>I» EMEJ^Oy OMIT 
40. RWffTS PURPOSE IS TO ALLOW 'STUD WTS, TO QUERY A DATA^lSASE OP ENERGY • 5: 
80 REHI IWrORKATIOM ATOOT COUMTRIES^ SliE MANUALS rOR MbRE It^ 
^ pm ASCTSl.BlCTaS^CSCTSSfDtCTai'ESlt^l^PSCT&l'GtCTei^HtC^a] 
70 DIM ltC78]« JtC78]«KtC78]>LtC72]«MS(;783«riSC7&]«0SC7B]«PfC783 
00 LET AaAI.«Al>X*Y«iJ>I>Z*T-P«0 

■90- -c-ss • ' . - ;;.,<••> 

• lOO v»84 

lie DIM CC83]^yC8^^^^^^ 

180 PILES TA0LE>1- 1ST ; 

130 PBIMT "W/WT INSTROCTIOMS <YES OR MO) "I 

WO INPUT AS ; 

iSSa ir ASCUIJ-^W** THEW 800 % t 

460 RdC* READ INSTRlJCTlbplS PROM •LIST* FILE AMD PRINT IWSTRUCTIOMS 

,170 READ #a# 10 

ISq. ' READ #2IAS«BS«CS«D$«Et«FS«GS«Ht«lS«JS«Kt>LS«MS«rfS«0S«PS 
190 PRINT AS«BS«.CS«DS«Et«PS«GS«Ht«IS«JS«KS«LS«MS«NS«OS«PS 
800 PRINT LIN'(3>«**VHICH 0PTI0M".I 

210 .' iNPbT AS . ' • 

880 IF A»Cl#n*"H«* THEN -170 ^ :r ■ . ' . , ' : 

830 ■, IF ■AWl#-r]*-r' THEN 330 '^'^y . ' V'-*^-^ ■ 

-840 IF ASt'l#l>*W' THEN 1.570 ' • 

,850 IF A»Cl#l3-'n." THEN 300 ^^^^^^ - I ' 

8*0 IF /VtCl^n-^S" tWeN 8270 

870 PRII^T •♦CHOOSE ONE OF THESE OPTlOMSf 

PRINT " TABL)fc;"*LIM<l)#" LJ ST"#L IN < 1 ) # " HELP"*LINCl)#'» STOP*^» 
.890 GOTO 800 . 

300 GO SUB 1850 ■ ^ 

310 /GOTO 800 ■ 

380 REM* THIS IS THE 'TABLE* OPTION 

330 PRINT^ LIN<1>«'*H0V MANY COUNTRIES'*! ^ 

340 , INPUT Al 

350 IF Al><; THEN 510 

360 ' !*• Al«Cl^ THEN 560 ■ i^-,^v■.V■^■:':■ 

370 PRINT LIN <4># "AFTER EAClf V'?' TYPE A NUMBER FROH THE LIST OF COUNTRIt 
380 PRINT *^>R« TYPE '0 ' TO SEE THE LI STf "#LINt 1 > ' 
390 |t)R:"X«>l 'TO.'Al . .. 
'400 INPUT OCX) . 

410 IP ceX3*0 THEN 536 ^ - 

480 IF CCX3>C THEN- 490 
,430 IF X-l THIN 450 

440; IT CCKKCCX-n THEN 470 , , 

,^•50 NEXT X. ■ ,m: ■ ^, ■ V- 

;;-4il0- G0T0"59q>^ ■■-r'^^-../ ■'r.':;^ *,:..-"v., 

470, 00 SUB 1430 -K . '■■ " 

480 GOTO 370 

490 PRINT LIN<1>«'*PLEASE ENTER A NUMBER LESS THAN**<C>fl 

500 OOTO 400 ^ 




510 PRIMT LINC n« "PLEASE EMTIR A MUMBER^LESS THAM'MC+1 

580 GOTO 330 ^\ 

530 OOSOB 1330 

540 GOTO 330 1^ 

550 REM* IF 'AUL COUNTRIES* C 

560 FOR TO C ^ 

570 CCX3-X 

580 MEXT X 

590 PRIMT LIN<1>*"W)W MANY VARIABLES <5 OR LESS* PLEASE) "J 

600 INPUT \ 

610 IF Aa^ THEN 1190 

680' PRINT^I-IN<l>*'«AFTER EACH •? • TYPE A NUMBER FROM THE Llsl" t/'^RlABLl 

630 PRINT •n)R* TYPE 'O* TO SEE THE L I ST. "#LIN( 1 ) 

640 FOR Y«| TO A2 

650 INPUT UCY3 

660 IF VCY^-0 THEN 760 

670 IF VCY3>V THEN 780 

680 IF Y- I THEN 700 

690 IF 0'CYD<VCY-1D THEN 740 

700 NEXT Y 

710 GOTO 790 

780 PRINT LIN< I )#"PLEASE ENTER A NUMBER LESS THAN"JV+1, 

730 GOTO 650 

740 GO SUB 1430 

750 GOTO 620 

760 QOSUB 1470 

770 GOTO 590 

780 REMf PRINT HEADINGS FOR THE TABLE 

790 IF A1*,C THEN 1410 

800 PRINT "FOR COUNTRIES"! 

810 FOR X«l TO Al 

880 PRINT CCXD! 

830 NEXT X 

840 PRINT LIN<l)#"AND VARIABLES"; 

850 FOR Y- I TO Afi 

860 PRINT VCY3i 

870 NEXT Y 

880 PRINT LIN<3>#TAB( 18>*"VARIABLE">LIN<2>*"C0UNTRY"I 

890 REfD »2» 1 

900 FOR X-1 TO (2*(VCn-l>) 

910 READ #2iBt 

WBO NEXT X 

930 READ #8JA* 

940 PRINT TAB<12)IA5J 

950 FOR Y-2 TO Afi 

960 FOR X-» TO (<2#(VCYD-VCY-n))-l) 

970 READ #2jB» 

980 NEXT X 

990 READ #eiAS 

1000 PRINT TAB(Y*ia)IA$j 



81 

ERIC 



10|0 


MEXT Y 




lOCO 


PRINT UlMCa.) ' 




1630 . 


REM* BEAD TABLE VALUES FROM •TABLE'; FILE AMD PRIi>)T 


TABLE 


1040 


FOR X-l TO Al 




JOSO 


READ #l*CCX]IC» 




1060 


PRIMTjCJI ' 




1070 


Let J- 1 




1080 


FOR Y^l TO A2 




109 0 


READ #l;Z 




1100 


If J-VCY3 THEN 1 1 30 




11 lO 


LET J»Jtl 




iieo 


GOTO 1090 




11 3P 


PRINT TABCY*I2)IZ^ 




lUO 


LET J* J^l 




1150 


NEXT y 




1160 


PRINT 




1170 


NEXT X 




1180 


GOTO 200 




II9O 


PRINT UINC1)^'*F0B MORE THM 5# RUN A SECOND TABLE* 


FOR NOW* ASK FB 


12p0 


PRINT ••ONLY THE FIRST 5 VARIABLES." 




1810 


Let A2»5 




1230 


GOTO 680 




1830 


PRINT ••FOR ALL COUNTRIES*'! 


"\ 


I84O 


GOTO 840 




I85O 


REM*. THIS IS THE 'LIST' OPTION^ 




I860 


PRINT ''LIST COUNTRIES OR VARIABLES"! 




1870 


INPUT AS 




1880 


IF A$Cl*n-''C" THEN I33O 




1890 


IF. ASC U ID-'^V THEN U70 




1300 


PRINT ••TYPE 'COUNTRIES' OR •VARI ABLES'**! 




1310 


GOTO 1870 




1380 


REH* LTST COUNTRIES 




I33O 


READ #8,7 




134O 


PRINT 




I35O 


FOR I- 1 TQ C 




1360 


PRINT I 1 




I37O 


READ #81 AS 




1380 


PRINT AS 




1390 


NEXT I 




1400 


RETURN 




1410 


PRINT LINC1>#"F0H ALL COUNTRIES" 




1480 


GOTO 840 




1430 


PRINT LINC 1>, "PLEASE START AGAIN AND ENTER YOUR NUMBER'S IN ORDER, • 


I44O 


PRINT ••WITH THE SMALLEST NUMBER. '• 




14»0 , 


RETURN 




1460 


REM* LIST VARIABLES 




I47O 


READ #a# 1 


• .'/ 


1480 


Print ^ 


. . v ^ 


149 0 


t)R I- 1 TO V . » 




150Q 


READ #8lAS>AS 





V 
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i^XO PHIMT li 

'la^a PIWMT At 

Pl^INT LIN< l)*"FOn ME/WIWG ABBREVI AXIOM S# SEE YOUR MAl^UAL* "#UlN< 1 

15^0 RiM* tHiS IS THE 'SOflT' ROUTINE* 

i^^O PHINT UIM( l)#"WHIcM VARlABt-E"! 

1590 I^IPUT VI / 
I<i0f> VI 7 THEN 1^30 

>«jO PtWNT UIM( l)#"ENTgB A NlWBEft LESS tHAM"IV+l 

i^^O GOTO J570 

W3<? PliINT *'ALU COUNTI^rES <YES OH NO>'M 

i^^O Ir«PUT N» • 

IftSO IS" N$C»* ll-"Y- THBP* 

t^t^ PWNT '*WW MANY"! 

1^70 I^^puT 0 ' 

*^80 PHIMT "TOP OR BOTt^WJ 

I70<> t 'If M5CI*13-"T" THE?^ J'>30j 

UtT 0* I 

l^a^* SOTO J730 

1>3^> «t AD * I * I 

F(JB y* I TO C 

l>50 R5AD #Uy;C$ 

J^fiO FOB X-1 TO VI 

itjO R|:ad #iiz 

i^oO N5:xT or 

JSlO RJM* ALL VALUES 1^0?^ I ArP Mow IN RCY). BEfilN SORT- 

J^JfiO PniNT LlNCl)#"THt^ WJLL TAK5; A MINUTE. PLEASE BE PATI ENT- "'L IN( I ) 

1^30 fOB X- 1 TO C 

m^o ' Ht T^O 

FOB Y- I TO C 

IQ^O Hr RCY3«999999. fi^EN l85o 

1^70 Ilr RCY1>T THEN 1^0^ 

»^0O NfcXT Y 

GOTO 1930 

Wo*? I'M T-RCYl 

l^lO L^T TI'-Y 

1^2^ GOTO 1880 

1^30 L6T 0CX5-T 
I^^O pCK3«Tl 

1^50 L^T RCTn-999999« ' 

i^ftO NJXT X 

l^yO Ijr Q«0 THEN 8160 

Iftgd I|r B«I THEN 2080 

1^90 Rj>I* PRINT 0 VALl/KJS fl^oM THE TOP OF THE RANK-ORDERED blsT 

fif^oO QO5U0 fiaio 
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4010 
9080 

floao 

8040 

aoso 

8040 

8070 

8080 

8090 

8100' 

'8110 

8180^ 

8130 

8140 

8150 

8160 

8170 

81d0 

8190 

8800 

8810 

8880 

.8830 

8840 

8850 

8860 

8270 



FOR y« I TO 0 

READ «1>PCY3ICS 

IF 0CY3-0 THEN 8060 

PRIMT C»» 

PRINT OCYI 

NEXT Y 

GOTOsjeOO 

REM* PRINT, 0 VALUES l^RDM THE BOTTOM OF THE RANK-ORDERED LIS 

QOSUB 2810 

FOR I»C TO 1 STEP -I 

IF OCn#0 THEN 8130 ^ 
NEXT I 

FOR Y«<I-Q*l) TO I , 
8080 

Y-. .-. , , 

REM* PRINT ALL VW-UES if-QR Ul FOR ALL COUNTRIES 
OOSUB 2210 
FOR Y-l TO C 
GOTO 8080 

N^t Y '■• 13 

READ #2» I 

FOR X-l TO 2*V1 

READ #2 I AS 

NEXT X 

PRINT AS*LIN( I) 

RETURN 

END 
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LDTAB 

L ^ .. - ■ ^ * " ■ ■ ' 

10 FILES TABLE 

. 80 REMt PROGRAM WRITTEM BY JUDY EDWARDS* MWREL# JWE# 197S 

3a REMt'LDTAB' LOADS THE ENfERGY USE DATA FOR EACH' OF 83 , COlNTRI ES ' 

4d REM* IMTO THE •TABLE' FILE COPEV IT TO 85 RECORDS* OR UP TO 120 

50 REMt IF YO.U PLA.^J TO ADDMORE COUNTRIES). SEE MAMUAL FOR 

60 REMt DIRECT lOMS FOR ADDING MORE COlNTRIES TO THE FILE. 7 

70 DIM ASCl/|]*VC2/il / 

80 IF END #1 THEN 15/10 

90 FpR Z« 1 TO 83 

110 READ AS 

120 PRINT #l>Z:iAS 

130 FOR X*l TO 2/1 

: 140 READ VCXD . 
ISO PRINT. #WVC XI 

160 NEXT X . 

165 PRINT z:#As#x#vcx- n 

'170 NEXT Z , > 

180 DATA "AFGHANISTAN"* 17.48# 27# 2. 3, 37. 5* 3 7. 5* 2060, 0# 0# 2. /|# 3. 5/l# • <S/l# . /> 7 

190. DATA 39#27#85# 135*0*0*0*6*0* 989/1*326*0 

200 DATA "ALGERIA"* 1/|- 769*6* 3. 5* 50. 7* 50. 7* 1 890* 0, 0,59 . 1 6* 52. 99* 4 . B 1 * 7.ai 

210 DATA 20^0*0*0* 1235;50/l77.*396/i*aJ?9/l* 1901,52 

220 DAT/^ "ARGENTINA"* 23. 552, 8* 1. 5* 6/l. 1* 70. 2, 3160, 18250* 24500* 30. 56* 3 7.63 

230 DATA 41.75* 1A80* 1773*450*675*0*0*34/1*22130*206*6183*23623*0 

240 DATA "AUSTRALIA"* 12. 723*2* 1 . 9* 67. 9 * 74. 2, 3 1 60, 27075* 32999 .* 48. 82 

250 DATA 75. 78*60. 7* 68. 21* 5045* 5359* 16000*49056. * 9 5600. * 23630*208 

255 DATA 1 6 1 IB* 1 069, 2628 , 57099. , 3466 

260 DATA "AUSTRIA", 7.456* 89, . 5, 66. 6, 7 3. 7, 3230, 0, 14866, 1 0. 08, 9 . 77> 2 1 • I4,a 

270 DATA 28.76*323 1*3*0*143*3756*26*2478* 16* 1963*28748*1675 

280 DATA "BELGIUM", 9. 673, 317, . 5*67. 7* 73. S* 3230* 18897*26474* 15.02* 1 1. 18*t 

290 DATA 61. 57*5237*61 16* 1796* 10500*0*0*0*0*0,52, 31S97*2979 

300 DATA "BOLI VI A"* S. 063* 5* 2. 6* 49. 7* 49. 7* 1760*792* 1000* 2. 64* 2. 46 *. 96 

31 0\ DATA 1.^13*204*224*0*0*0*0* 28*20 30* 139*40*8 30*0 

320 DATA "Bl^AZIL"* 95.,468* 1 1* 2. 8* ^0. 7* 60. 7* 2820* 269 14*40b00. * 1 7. 6 6* 20 - 3911 

330 DATA 47.7*446* 50(3* 10^75*2497*0*0* lQ4i?ai79*26* 1242*50988. *419^ 

^ 340 DATA "BULGARIA'S 8. S4* 77* . 7* 68. 8* 72. 7* 3070*0* 0* 16-03* 14.8* 27. 74* 34. 41 

^350 DATA 3315*4029* 1 147* 384* 1 1 17* 26894* 38> 248* 28, 220, 21016> 0 

360 DATA '•BURUNDI",3. 615* 1 30* 2* 35* 38. 5* 23 30, 160*200*0*0* . 03* . 04* 8* 1 1*0,0 

370 DATA 0*0*0,0*0*21.5*0 

380 DATA. "CANADA"* 21. 595* 2* 1. 6i 68. 8* 75. 2i 3200* 589 79. * 81421. * 16 1. 22 

390 DATA 223.7* 167.97*201.38*8086*9 326*61000.* 158 10*24100*29 78* 1080*7299 

400 DATA 1499*82503.* 216472. * 2289 

410 DATA "CHAD"* 3. 8* 3* 2. 3* 29* 35* 2240* 0, 0, 0, 0, . 06, . 1 , 18^ 27, 0, 0, 0, 0, 0, 0, Ot 

. 480 DATA "CHILE", 8. 992, 12, 1.4,54.4,59.9,2560,4829,5100,6.85,9.08, 10. 76 

430 DATA 15.09# 115U 1516,218, 1332, 5365,0, 16, 1613,71,4080,8524,0 

^ 440 DATA "CHINA", 787. 176, 82, 1. 8, 50, 50, 2050, 0, 0, 0, (5, 0, 0, 0, 0, 1.01 1E>06,400 

450 DATA 700, 0, 1709, 29600> 99, 0,0,0 

460 DATA "COLOMBIA'S 21 . 772, 1 9, 3. 2, 44. 2, 46, 2140, 6030, 8700, 0,0,0,0, 0, 0, 1 26 

470 DATA 2800#0,0, 226, 10134,73, 1563,8750, 146 

480 DATA "CUBA", 8. 657, 76, 2. 3, 66«8, 66. 8, 2500,0,0, . 1 7, . 26, 8. 4 3, 9. 9 7, 1044, • 

490 DATA 0,0,0,0,0, 1 17,0,0,4072,77 

500 DATA "CZECHOSLOi;. "* 14. 5* 1 13* .4* 6 7. 3* 73- 6* 3030^0* 0* 72.99*8 1 . 79, 82. 76t 
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510 DATA 5762*.6615# 1 1573# 27925# 9857# 85566. ,0* 19 1,11*1 1^7/47237. # 7^35 

580 DATA ••DENMARK'S 4# 963# 1 15# » 7# 70. 8, 75* 7, 3250, 1 1 29 0# 1 58 34, . 85* 0*22. 83 

530 DATA 26. 45* 4692^ 5327* 0* 0* 50* 0* 33* 73; M* 0# 17540* 398 

540 DATA ••DOM. REPUB. •S4. 182* 8 6* 2. 9, 57. 2* 58. 6* 20^0* 1074* 1 5 1 3* . 0 1 * • 0 1 * • 84 

550 DATA 1. 1*209*264*0*0*0*0*0*0*0*0* 1052*0 s 

560 ^ DATA ••ECUADOR'S 6. 297* 22* 3. 4* 51*53. 7* 1970* 1270* 1610* . 36# .31* 1. 49, 1 . 98 

570 DATA 261*315*0*0*0*0*834*4016* 122* 14* 1050,0 

580 DATA ••EGYPT'S 34. 13* 34* 2. 5'> 51. 6* 53. 8* 2770* 5986* 7OOO* 1 U 52* 19. 81* 9. 54 

590 DATA 9. 69*i3pl*282*0* 0* 0*0* 531* 10630* 108*85* 7591*0 

600 DATA "EL SALVADOR'S 3* 647* 1 70* 3. 7* 56. f>* 60.4* 1850* 864* 1Q09* . 05* • 06* • 6t 

610 DATA 194*223*0*0*0*0*0*0*0*0*743*0 

620 DATA ••ETHIOPIA'^* 25. 248* 21* 1. 8* 38. 5* 3 8. 5* 19 80* 1387* 1750* • 03* . 03* . 55* « 

630 DATA 23*32*0*0*0*0*0*0*0*0*585*0 

640 DATA ••FINLAND'^*4. 684* 14* .4* 6 5* 4* 72. 6* 2940* 7322* 1 0 195* 1 . 3 1 * 1 • 3 1 

650 DATA 16.34*20. 3*3484*4334*0*0*0*0*0*0*0*0*20842*51 

660 DATA ••FRANCE'S51. 25*94*. 9*68* 6* 76. 1*3270* 1 i4427. * 1 32344. * 6 1.87*54.22 

670 DATA 163.95*201.48*3282* 3928*2800*29763* 30*2962* 13# 1484* 187 

675 DATA 7517* 148998. *6492 

680 DATA "6ERMAWr'S75* 129* 194* . 7* 6 7. 6* 73. 6* 3180*0* 194147. * 1 65. 07* 1 75. 519. 

690 DATA 320. 06* 4488* 5223* 70000. * 10270 7. * 30000* 248451 .* 71 ^ 7098/351' 1 692g 

700 DATA ••GHANA'**8. 858* 37* 3* 46*46* 2070* 1 849 * 2485* . 32* . 36* U06* 1.65* 126*« 

710 bATA 0*0*0*0*0*0*0*0*2944*0 

720 DATA "GREECE'^*8.85*67* . 5*67. 5* 70. 7* 2900* 3* 8877* 2« 1 * 3» 9 2i^ 9 . 04* 13.01 

730 DATA 1027* 1470*0*0*1575* 11318*0*0*0*0*8427*8 

740 , DATA ••GUATEMALA'S 5. 348* 49* 3. 1*48.3*49.7*2020* 1489* 1889* ; 02* . 03* 1 • 1 71 

750 DATA 241*250*0*0*0*0*0*0/0*0*780*0 

760 DATA "GUIMEA"* 4. 0 1* 1 6* 2. 2*26* 28* 2060* 282* 315* 0* 0* • 37* • 43 

770 DATA 99* 108* 0* 0* 0* 0* 0* 0* 0* 0* 450* 0 

780 DATA "HAITI^'*4. 9 69* 1 79* 2* 44. S* 44. S* 19 30* 409* 500* 0*0* . 1 3* • 14* 2B* 29 

790 DATA 0*0*0*0*0*0*0*6^115*0 

800 DATA "HOfSJG KOWG^^* 4. 045* 39 1 2* 2. 1 * 66. 7* 73. 3* 2370* 6000* 1 5 1 9 * 0* 0* 2. 95 

810 DATA 4.21*777* 1040*0*0*0*0*0*0*0*0*5574*61 7 

820 DATA ••HUMGARY"* 10. 35 1* 1 1 1* . 5* 66. 3* 72.V7*3 19 0* 0* 0*21. 75* 23* 24* 28. 93* 34 

830 DATA 2837*3291*714*3671*5679*22171*30*1977*119*4110*14990*973 

840 DATA ••INIDI A"* 550. 3 74* 1 68* 2. 2* 4 1. 9* 40. 6* 199 0* 0* 462 19. * 82. 74* 84« 9 1* 94« 

850 DATA 102. 52* 18 5* 186* 1 06260. * 74 77 1 . * 2063* 3067a9 0* 7486* 44* 69 3* 603 52. * 0 

860 DATA "IMDOMESI A"* 1 24. 894* 84* 2. 8* 4 7. 5* 4 7* 5* 1920*0* 1 0828* 4 3. 4 1 * 62. 33* t 

870 DATA 15. 39* 103* 123* 84 5* 179*2000*0* 1466* 54080.* 156*4126*2084* 33 

880 DATA '•IRAM"* 29. 78 3* 18* 3* 50* 50* 2030* 0#9 764* 186. 62* 31 7. 29* 13. 1 7* 26* 66i 

890 DATA 895* 1000* 1000* 0* 0* 8515* 248498. * 5656* 1 7185* 8309* 0 

900 DATA '•IRAQ'S'9. 75*22* 3. 2* 51. 6* 51. 6* 265O* 0* 854 7* 96* 89* 1 10.0 7* 5*49* 6. 3i 

910 DATA 650*0*0*0*0*4433* 71 125. *566*870* 1929*0 

920 DATA '•ISRAEL"* 3. 013* 14 6* 3* 70. 1* 73. 4* 299 0* 0* 4 76 1* 2. 97* 8. 23* 5. 5 3*8. 1 6 

930 DATA 2015jr 2710* Q* 0* 0* 0* 0* 6048* 1* 124* 7639* 0 

940 DATA ^•ITALY*'* 54. 078y 180* . 8* 67. 9* 73. 4* 3020* 0* 93508. * 23. 29* 26. 26* 1 19. £ 

950 DATA 145.04*2267*2682*0* 151*524*839*35* 1152* 170* 14142* 184860.* 2894 

960 DATA "IVORY C0AST'S4.4S* 14*8.4*4 1*41*2430* 1193* 14 10* . 03* . 08* .65* 1. I7 

970- DATA 158*865*0*0*0*0*0*0*0*0*588*0 

980 DATA "JAPAN"* 104.661*883* 1. 1*69. 1*74-3*8470*0* 198885. * 5,9. 8 1 * 49 • 4 7* 8« 

990 DATA 34 U 9* 8519* 3267* 19 848* 8809 8* 1733* 108* 3* 71 1 * 8* 8488* 3856 1 2. ' 5042 

1000 DATA "KENYA"* 1 1. 694* 20* 3. 1*47. 5*47. 5* 2200* 1208* 1598* • 03* . 04* 1»48# 80) 

1010 DATA 140* 171* 0*0* 0* 0* 0* 0* 0* 0* 555* 0 

1020 DATA ••KOREANS 46. 198*210*2.4*5 7.7*57-7*2270*0*8455* 10. 36> 18.9 5* 17.75 
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1030 DATA 27*9/i, 588* 860#0'0'.5* 0,0, 0,0*0* 10952*0 

1040 DATA ••LAOS'% 3. 033# 1 3^ 2» 4* /i7. 5*4 7. 5* 2040* 0* 153*0* 0* • 08* . 28* 30* 91 

1050 DATA 0*0*0*0*0*0*0*0* 16» 1*0 

1060 DATA rw* MALAYSIA"*8.9 78*68*2. 4*63. 8*66*7'219 0*0* 2783*. 1* . 13*3. 73*1 

1070 DATA 425*453*0*0*0*0* 196*4432*0*0*3574*0 \' ■ 

1080 DATA "MALI'SS. 143>4*2. 1*37.2*37.2*2130*0*0*0*0*. 1*. 13*21*25 

1090 DATA 0*0^ Oil 0*0* 0*0* 0*44. 2*0 

1100 DATA "MEXICO'S 50. 83* 26* 3. 2* 6 w 63. 7* 2620* 25663* 36000. * 53. 69* 59^ 2 

1110 DATA 53* 36, 6/1, j, \ i29* 1270* 3466*2170*0*0^389*22163* 305* 18694*31322*0 

1120 DATA •MOROCCO"* 1 5. 238* 34* 2. 2* 50. 5* 50. 5* 21 30* 2953* 3660* . 72* . 76* 2. 7 11 

1130 DATA 186*205*96# 547*0*0*0*28*0*52*2085*0 

1140 DATA ••METHERLANDS"* 13. 194*323* 1. 2*70. 7* 76. 5* 3200* 0* 33555. * 28. 22*«4t 

1150 DATA 52.44*66.89*4121*5069*2394*2812*0*0*39* 1597*2209*58385. *44904« 

1160 DATA ••WEPAL"* 11. 29* 80* 1 . 8* 40. 6* 40. 6* 2030* 0* 88 7'* 0* . 0 1 * . 12*. 1* 12*9 

1170 DATA 0*0*0*0*0*0*0*0*60*0 

1180 DATA "NIGER"*4. 126*3*2. 7*4l*/il, 2170*369*0*0*0*. 07*. 09* 18*22 

1190 DATA 0*0*0*0*0*0*0*0*38. 3*0 

1200 DATA •'WI(3ERIA"*56. 51*61*2. 5* 37. 2* 36. 7* 2290* 4024*4750* 9. 48* 99. 8 1 * l.S 

1210 DATA 3. 33*33* 59* 350* 341* 73* 0* 1729*909 14.* 1 161* 159* 1820*0 

1220 DATA ••W0RWAy"* 3.903* 12* . 8* 7U 1*76.8*2940*0* 1 1 1 8 1 * 7. 8* 8. 6 7* 16.24*208 

1230 DATA 4254*5189* 166*455*0*0*462* 1626*439*0*62930.* 182 

1240 DATA "PAKISTA!M"* 1 16. 598* 140* 16. 7* 53. 7*48.8*2410*0* 14738*5. 08* 7.31*« 

1250 DATA 12.88*87*9 6* 1 66 1 * 1 25 1 * 280* 0* 5> 455* 54 7* 379 5* 7068* 0 

1260 DATA "PERU"* 14. 015* 11,3. 1* 52. 6* 55. 5*2260*0*49 33*6.01* 5. 27*8.24*8. 7t 

1270 DATA 621,8334*92*4630*0*68*3194*74*480*5324*0 

1880 DATA ••PHlLLIPmES"* 37. 9 19i. 1 26* 3* 48. 8* 53. 4* 2040* 0*8899* . 25* ^ 37* 9. <i5t 

1290 DATA 272*298*0^39*88*0*0*0*0*0*8666*22 

1300 DATA "POLAMD"* 32. 749* 105* . 8* 66. 9* 72.8* 3 140* 0*0* 140.88* 163.8^* 123.67 

1310 DATA 143. 24, 3828* 4374* 4574 1 . , 150697. * 14862* 38221. * 7*347* 0*0*6988 7.1 

1320 DATA "PORTUGAL"* 9. 037*98* 0* 65i 3* 7 1* 2920*0* 721/|, 1. 06, 1 .02* 5. 12, 7. 141 

1330 DATA 26,252,26*8*0*0*0*0*7815* 125 

1340 DATA ••R0MAMIA"*20.4 7*86* 1. 1*65. 5*69.8*3010*0*0*52.8 7*62.78*4 7. 1*60^^, 

1360 data; 2388*29 75*590,6612* 136 7* 1654 7* 198, 14 128* 0* 0* 39454. * 522 

1360 DATA •'RWAMDA"*3. 827* 145*2.9*41*41* 1900* 163* 266* • 0 1* . 0 1* . 03* . 04* 10,(5 

1370 DATA 0,0,0*0*0*0* 0*0*34*0 

1380 DATA "SA. ARABIA"* 7.965* ^* 2. 7,4.2. 3, -ft 2. 3* 2080* 0, 25 1 7, 1 86. 1 8 , 29 5. 35,1 

1390 DATA 7. 87, 625, 988, olio, 0,0, 18658, 285583.*0, 0*805*0 

1400. DATA "SENEGAL", 4. 022*21, 2. 4, 4 1 , 4 1 , 2300* 782, 7 1 8, 0*0, .55* • 52, 149 

1410 DATA 129,0,0,0*0*0, d* 0,0*303,0 

1420 * DATA "SO. AFRI CA"* 221092, 1 8, 3. 1 * 49, 49* 2730* 1 2340, 1 656 7* 5 1 . 77, 58 . 83 

1430 DATA 59. 04*71. 71*2718*2895* 72465. *58440.*0*0*0*0*0*0*52717.* 1800 

1440 DATA "S. RHODESIA"* 5. 5* 14*3. 3* 5 1 . 4*v5 I . 4* 2550* 1085* 1533*3. 57* 3. 75* 27' 

1450 DATA 3.4*550*618*66 13*2762*0*0*0*0*0*0*6800*0 

1460 DATA ••SPAIM'S34. 134*68* 1. 1* 67.3*7 1.9*27 70*0*34073.* 16.99* 16.54*41.6 

1470 DATA 55.08* 1266* 1614*0* 11160*780*3070^9^* 143* 0* 0* 6 19 17. * 2387 

1480 DATA "SRI LANKA"* 12. 762* 19 5*2. 3* 6 1 . 9 * 6 1 . 4* 234 0* 0* 2005* . 06* . 1* 1.37 

1490 DATA 2.07* 1 14* 163*0*0*0*0*0*0*0*0*900*6 

1500 DATA "SUDAN"* 16. 087* 6* 2. 8* 4 7. 6* 47. 6* 209 0*0* 1701*. 01** 01* 1* 35, 1. 91, i 

1510 DATA 119,0*0,0*0,0,0,0,0,259*0 

1520 DATA ••SWEDEN"* 7. 604*. 18* . 8* 71. 9* 76. 5* 2850*0*32698*6. 12*6. 51*42. 59, ■ 

,1530 DATA 5379*6089*90, 0,0, 0,0*0, 0,0*66549. ,51 1 

1540 DATA ••SWITZERLAND", 6. 324* 153*1. 2,66. 7* 74. 1*3190*0* 17954*3- 6 7,4.01 

1550 DATA 18. 56, 22.63, 3009*3575*0,0, 0,0,0,0*0,6*32785. ,383 

1560 DATA ''SY ARAB REP^', 6. 45 1* 35, 3. 3* 52. 8, 52. 8* 24^0* 0* 1 589 , 1 . 09 , 6. 88 

1570 DATA 2.47*3. 13*421*485*0*0*0*0* 18f?>5862*0*0* 1049*0 
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1580 DATA ••THAI L AMD" #35* 335* 69 #2. 7# 53* 6* 58. 7# 2210* 0* 6406* • 28* • 39# 6* 8 7, 

1590 DATA 10.47* 204*29 6* 0* 0# 0# 34 S* 0* 1 3* 0*0*454 5* O 

1600 DATA ••TURK]E:V*36* 1 1*46* 2* 5* 53* 7* 53* 7* 2760, 0* 12249, 10* 55* 1 N 01* 15. 12 

1610 DATA 18*65* 451*516* 1 335* 464 1 * ,1 88 1 * 5336* 20* 34 1 0* 0* 0* 9 78 1 * 726 

1620 DATA "UGANDA'S 10. 127*43*2* V* 4 7. 5*47. 5*2160, 89 3* 1040** 09*. r>#5*. 73*8 

1630 DATA 72*0*0*0*0*0*0*0*0*817*0 « 

1640 DATA "UN. KINGDOM"* 5S. 566* 228* • 4* 67. 8* 73* 8# 3 1 70, 0* 1 25735. * 1 73* 7 1 

,1650 DATA 176. 01*274*83* 306*68*4961*5507* 1550,0, 1 19500. , 0* 0* 7 1 6* 83* 0* 0* 2t 

1660 DATA "TANZANIA'S 13* 634* 14* 2. 6*40>41* 1700* 1036* 1277* . 03* .05 

1670 DATA .65*. 93* 53*70* 370*3*0*0*0*0*0*0*422*0 

1680 DATA "U» S. A. "^207. 05*22* 1. 1#7 U 1 * 7 N l * 3300, 782035* *946778. , 18 76. 06t 

1690 DATA 10398, 1 1244, U 1 lE+06, 535242* , 406000* , ft 1 69, 4R99 , 4669 56. * 0* 0, l«t 

1700 DATA "U. S. S% R. ",245. 091, 1 1, 1. 1, 65* 74* 3180, 0*0* 108 7.45* 1250. 26* 9 65* t 

17 10 DATA 4050* 4535* 1. 40638E+06* 1 52467. * 57 1 6* 400440. * 0, 0, 0* 0* 800360. , 339 

172,0 DATA "UPPER VOLTA", 5. 49 1# 20, 2. 1,32. 1,36. 1 , 2060, 30 1, 0, 0, 0, . 05* . 07* 10 

I7p0 DATA 13*0*0*0*0*0*0*0*0*33*0 m- ' ' ' 

1740 DATA "VIET NAM"* 40. 404* 1 23* 2. 5* 50* 50* 2000, 0, 284 1, 0, 0, 5. 5lf 5* 46, 3 189 

1750 DATA 1000* 0* 0* 0* 0* 0* 0, 0, 1215* 0 

1760 DATA "YEMEN", 5. 9, 30, 2. 7, 42. 3,4&. 3, 2020, 0, 0,0, 0, . 56, . 94 

1770 DATA 41 1,639,0,0,0,0,0,0,0,0,6.2,0 

1780' DATA "YUGOSLAVIA", 20. 55*80* 1,64.3,68.9,3130,0,0, 19.3,2,3. 13,25.^21,39 

1790 DATA 1259, 1608,319,599,26600,30341,48,3200,0,0,29509,169 

1800 DATA "ZAIRE*', 22. 4 77, 1 0,4. 2, 37. 6,40, 2040, 1 1 54, 2150, . 4, . 5 6, 1 . 42, 1.73? 

1810 .DATA. 77,73, 123, 0,0,0,0,0,0, 378,0 

1820 DATA "ZAMBIA", 4. 275*6* 2. 9,43. 5*43. 5* 2250* 1229* 1421, .61, ^89, 2. 26, Li 

1830 DATA 458, 115,959,0,0,0,0,0*0, 11684 0 

1840 END 
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30 

40 

SO 

60 

70 

80 

90 

100 

UO 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

4^0 

420 

430 

440 

450 

460 

47b 

460 

490 

500 



.FILES LIST 

REM I PROGRAM WRITTEN BY JUDY EDWARDS* MWREL* JlJME# 1975 

*LDLIST' LOADS THE LIST OF COUMTRlESf AND THE LIST OF VARIABLES 
INTO THE. 'LI ST 'FILE CO PEN IT TO 14 RECORDS* OR AS MANY AS YOU 
NEED IF YOU ARE GOING TO ADD TO THE LISTS). •LDLIST' ALSO 
LOADS .THE INSTRUCTIONS AT THE END OF THE 'LIST' FILE. 
MANUAL, FOR DIRECTONS FOR ADDING TO THE LISTS. 



REMt 
REMt 
REM! 
REM! 
REMt 
C«83 
V«>24 

DIM A$C72]*BSC2D 

IF END #1 THEN. 850 

REAP #1, 1 

jFOR Z-1 TO V 

READ AS*BS 

PRINT .#1JAS*B$ 

NEXT Z 

READ #1*7 

FOR Z« 1 TO C 

READ A« 

PRINT #i;as 



MEXT 


Z 






HEAD 


#1# 10 






FOR Z«l TO 17 






READ 


AS 






PRINT #i; AS / 






NEXT, 


Z 






DATA 


"71 POP* 




••1971 


DATA 


••7i ; DENS* 




••19 71 


DATA 


"POP. I NCR 




"1963- 


DATA 


"MALE EXP. 




••MALE 


DAtA 


"FEM. EXP. 




"FEMAL 


DATA 


"CAL* CONS 


It 


"CALOR 


DATA 


"68 INCOME 


"* 


••1968 


DATA 


"71 INCOME 




"1971 


DATA 


"68 EN PRO 




"1968 


DATA 


•*71 EN PRO 


"* 


"1971 


DATA 


••68 EN CON 


"* 


"1968 


DATA 


••71 EN CON 


"* 


"1971 


DATA 


••68 EN/ CAP 


••* 


"1968 


DATA 


••71 EN/ CAP 




"1971 


DATA 


••COAL RES. 


"* 


"COAL 


DATA 


"COAL PRO. 




••1972, 


DATA 


••LIGN. RES 


> 


••LIGNI 


DATA 


••LIGN. PRO 


It 

" # 


"1972 


DATA 


••PETRO RES 


"1972 


DATA 


"PETRO PRO 




"1978 


DATA 


"N - GAS RES 




"1972 . 


DATA 


"N GAS PRO 




"1972 1 


DATA 


"EL EN PRO 


"* 


"1971 


DATA 


"M GAS PRO 




"1971 1 



POPULATION IN MILLIONS 
POPULATION DENSITY/SO. KM. 
1971 POPULATION INCREASE C%) 
LIFE EXPECTANCY 
E LIFE EXPECTANCY 

tIE CONSUMPTION PK^^AY PER CAPITA 
NATIONAL INCOME CMILLIONS OF SS) 

(MILLIONS OF SS) 
CM.M.T.C.E. } 
CM.M.T.CE. > 
CM.M.T.C.E. ) 
CM.M.T.C.E.) 
PER CAPITA (KG. ) 
PER CAPITA CKG. ) 
) 

M.T. ) ' . , 



NATIONAL INCOME 
ENERGY PRODUCED 
PRODUCED 
CONSUMED 
CONSUMED 
CON SUMED 
CONSUMED 
T. 
CT. 



ENERGY 
ENERGY 
ENERGY 
ENERGY 
ENERGY 

RESERVES CM.M. 
COAL PRODUCED 

TE & BROVN COAL RESERVES CM. M.T.) 
LIGNITE A BROVN COAL PRODUCED CT.M. 
PETROL EUM> RESERVES CM. M.T.) 
PETROLEUM. PRODUCED CT.M.T. ) 
NATURAL GAS RESERVES C 1000 M.CM.) 
NATURAL GAS PRODUCED CM.CM. ) 
ELECTRICAL ENERGY PRODUCED CM.KWH.) 
MANUFACTURED GAS PRODUCED CMfC.M. ) 



T.)' 



o ' ' ' 

ERIC 



510 


DATA 


5^0 


DATA 


530 


DATA 


540 


DATA 


550 


DATA 


560 


DATA 


570 


DATA 


580 


DATA 


590 


DATA 


600 


DATA 


610 


DATA 


620 


DATA 


630 


DATA 


640 


DATA 


6&0 


DATA 


,660 


DATA 


00 


DATA 


680 


DATA 


690 


DATA 


700 


DATA 


710 


DATA 


720 


DATA 


730 


DATA 


740 


V DATA 


750 


DATA 


760 


DATA 


770 


DATA 


780 


DATA 


790 


DATA 


800 


DATA 


810 


^ DATA 


820 


DATA 


830 


DATA 


840 


DATA 


850 


END 



"AFGHAN I STAN "# "AL GERI A"# "ARGEN TIN A"# •'AUSTRAL I A"?"Af JSTR I A" 
"BELGI IM"# "BOL I VI A"j» ••BRAZ IL'S "BULGARI A'S ••BURUNDI ••> '•CANADA^^ 
••CH/VD^'#^'CHlLE^^#^rCHINA»'#J«COLOMBt A^^#^^CUBA'^# ••CZECHO SLO VAKI A^^ 
••DENWARK^^#^^DOMINICAN REPUBL I C*^> •*ECUAD0R''# ••EGYPT^VEL SALVADOR" 
"ETHI OPI A^^# "FINLAND"* ••FRANCE^^# "6ERMANY^^# "GHANiA"# "GREECE"# ^^GUAT« 
"GaiNEA"#^^HAI TI"#"HONG KONG'^# "HtJN GARY"* " INDI A"# •• IN DONESI A^^> •• I RH 
"I RAQ"# " I SRAEL'^# " I TALY^^# *• I \J0 RY CO §ST^*> •' JAPAN'^# ••KENYA"* "KO REA^* 
"LAO S^^* •• WEST MAL AYSI A"# •'MAL I "# •'MEXI CO "# ••WO ROCCO "# •'NETHERLANDS*' 
••NEPAL''#^^NI GER^^#"NIGERIA^^# •'NORWAY'^* "PAKI S1;AN"# ••PERU*^* ••PHILL L**!* 
"POLAND"* "PO RTUGAL^^# "ROMAN I A^*# ••RVANDA^^*# •'ISAODI ARAB! A'*# !• SENEGAL" 
"SOUTH AFRI CA^S "SOUTHERN SHO DESI A'^# ••SPAIN^^* •'SRI LANKA";* ••SUDAN^' 
••S WEDEN"* "SWI TZERL AN D^^# "SYR I AN ARAB REPUBL I C••^» "THAIL AND"# "TURKS' 
"UGANDA"#^^UNI TED KINGDOLM^*# •'UN. REP.. OF TANZAN I A"# ••U. S. A. " 
••U. S. S.R.*^# ••UPPER VOL TA^'> "VIET NAM^'# "YEMEN^'# "YUGOSLAV! A'* 
"ZAIRE"#^'ZAMBIA^^ 

"THE 'EARTH' PROGRAM OFFERS 5 OPTIONS. THEY ARE--^^ 
" TABLEl THE CO'iPUTER WILL. VrINT A TABLE SHOWING THE*' 

••VALUES OF UP TO 5 VARIABLES FOR UP TO 83 COUNTRIES, 
"FIND THE LIST OF VARIABLES AND THE LIST OF.COINTRIES IN" 
"YOUR MANUAL CPP. XX AND XX) OR USE THE 'LIST' OPTION. •• 
"THESE LISTS GIVE YOU THE. CODE NUMBER YOU SHOULD ENTER'; 
"FOR EACH VARIABLE AND EACH COUNTRY." 

LISTI THE COMPUTER WILL PRINT A LIST OF ALL VARIABLES" 
••OR ALL COUNTRIES IN THE FILE.'^ 

RANK: THE COMPUTER WILL RANK THE VALUES FOR A^GIVEN VARl 
"AND PRINT THOSE VALUES IN RANK ORDER FROM HIGHEST TO LOWEST." 
"YOU CAN ASK FOR THESE VALUES FOR ALL COUNTRIES* OR YOU CAN** 
••SPECIFY A NUMBER OF COINTRIES FROM ' THE TOP OR BOTTOM OF THE Lt 
"COUNTRIES FOR WHICH NO INFORMATION IS AVAILABLE^^^^^^W^ BE OMI TTB 

HELP: THE CO>lPUTER WILL PRINT THIS LTST'oF OPTIONS 

STOP: TO END THE PROGRAM* TYPE •STOP^." 
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